From: Glenn Morris <rgm@gnu.org>
Date: Thu, 26 Apr 2007 03:19:53 +0000 (+0000)
Subject: (button): Use underline if supported, else fall back to color.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~534^2~5^2~306
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=21fd134a610ef88db9f3c4b85e77497746f796b4;p=emacs.git

(button): Use underline if supported, else fall back to color.
---

diff --git a/lisp/button.el b/lisp/button.el
index 8c3681854e7..ebc078f8193 100644
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -52,11 +52,12 @@
 ;; Globals
 
 ;; Use color for the MS-DOS port because it doesn't support underline.
-;; Also for the linux console.
+;; FIXME if MS-DOS correctly answers the (supports) question, it need
+;; no longer be a special case.
 (defface button '((((type pc) (class color))
 		   (:foreground "lightblue"))
-		  (((type tty)) (:inherit link))
-		  (t :underline t))
+		  (((supports :underline t)) :underline t)
+		  (t (:foreground "lightblue")))
   "Default face used for buttons."
   :group 'basic-faces)